home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed38.d64 / practice 4 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  148 lines
  1. 100 POKE53280,0:POKE53281,0:POKE53272,23
  2. 150 PRINT"[147][158]             [215][200][195] [197]NTERPRISES"
  3. 155 GOSUB390:GOSUB340:PRINT"[153]                                        [146]";
  4. 160 PRINT"                                        [146]";
  5. 162 PRINT"            [197][206][199][204][201][211][200][160][197][216][197][210][195][201][211][197][211]           [146]";
  6. 165 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  7. 170 PRINT"                                        [146]";
  8. 175 PRINT"         *  [211]PELLZZZZZZ[218]APPER  *        [146]";
  9. 180 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  10. 182 PRINT"              [208]RACTICE - 4              [146]";
  11. 184 PRINT"[153]                                        [146]";
  12. 186 PRINT"                                        [146]":GOSUB391
  13. 188 PRINT"                                      [152][212][153]"
  14. 190 GOSUB290
  15. 195 GOTO500
  16. 200 REM CORRECT
  17. 202 GOSUB300
  18. 204 PRINT"[153]               [195][207][210][210][197][195][212]!                 [146]"
  19. 206 GOSUB392:RETURN
  20. 210 REM WRONG
  21. 212 GOSUB320
  22. 214 PRINT"[150]           [206][207]!!   [212]RY AGAIN!            [146]":GOSUB392
  23. 216 PRINT"[145][145]                                        [145][145]
  24. 218 [153]"ONONON                                        ONONON":[142]
  25. 290 [141]392:[141]360
  26. 292 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE       WAIT"
  27. 294 [161]R$:[139]R$[179][177][199](32)[175]R$[179][177]"T"[167]294
  28. 296 [139]R$[178]"T"[167][141]900
  29. 298 [153]"LOAD":[141]390:[142]
  30. 299 :
  31. 300 [143] <YES> SOUND
  32. 302 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  33. 304 [151]54296,15:[151]54277,42:[151]54278,250
  34. 306 [151]54276,23:[151]54273,23:[151]54272,191
  35. 308 [129]T[178]1[164]200:[130]:[151]54276,32:[129]T[178]1[164]250:[130]
  36. 310 [151]54296,0:[142]
  37. 320 [143] <NO> SOUND
  38. 322 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  39. 324 [151]54296,15:[151]54277,18:[151]54278,242
  40. 326 [151]54276,33:[151]54273,4:[151]54272,48
  41. 328 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  42. 330 [151]54296,0:[142]
  43. 340 [143] <BLIP> SOUND
  44. 342 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  45. 344 [151]54296,7:[151]54277,42:[151]54278,250
  46. 346 [151]54276,23:[151]54273,23:[151]54272,191
  47. 348 [129]T[178]1[164]35:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  48. 350 [151]54296,0:[142]
  49. 360 [143] <DING> SOUND
  50. 362 S[178]54272:[151]54296,15:[151]S,50:[151]S[170]1,35:[151]S[170]2,0:[151]S[170]3,8:[151]S[170]5,0
  51. 364 [151]S[170]6,10[172]16[170]9:[151]S[170]4,14:[151]S[170]4,65:[129]Q[178]1[164]20:[151]S[170]4,64:[142]
  52. 370 [143] <VERY WRONG SOUND>
  53. 372 S[178]54272:[151]54296,15:[151]S,32:[151]S[170]1,3:[151]S[170]2,128:[151]S[170]3,13
  54. 374 [151]S[170]5,4[172]16[170]0:[151]S[170]6,10[172]16[170]8
  55. 376 [151]S[170]24,15:[151]S[170]4,65:[129]Q[178]1[164]500:[130]:[151]S[170]4,64:[142]
  56. 390 [129]T[178]1[164]600:[130]:[142]
  57. 391 [129]T[178]1[164]1000:[130]:[142]
  58. 392 [129]T[178]1[164]2000:[130]:[142]
  59. 393 [129]T[178]1[164]3000:[130]:[142]
  60. 394 [129]T[178]1[164]4000:[130]:[142]
  61. 395 [129]T[178]1[164]5000:[130]:[142]
  62. 399 :
  63. 400 [153]"LISTLOAD (null)PELLINGZZZ(null)APPER (null)-4        RIGHT$TEM "N
  64. 410 [142]
  65. 500 [153]"LOAD  (null)OW YOU CAN LEN(null)(null)(null)LENLEFT$ THOSE NASTY
  66. 502 PRINT"  FREQUENTLY MISSPELLED WORDS!
  67. 504 [153]"OPEN  (null)HIS IS ONE OF A SERIES OF GAMES
  68. 508 PRINT"  DESIGNED TO HELP YOU MASTER THE
  69. 512 [153]"  CORRECT SPELLING OF SOME OF THE
  70. 516 PRINT"  REALLY TRICKY WORDS IN THE [197]NGLISH
  71. 520 [153]"  LANGUAGE.
  72. 524 PRINT"  [201] WILL SHOW YOU TWO WORDS.  [207]NE OF
  73. 528 [153]"  THESE WILL BE SPELLED CORRECTLY.
  74. 532 PRINT"  [217]OUR TASK IS TO SELECT AND TYPE
  75. 536 [153]"  THE CORRECTLY SPELLED WORD.
  76. 540 PRINT"  [217]OU WILL HAVE TWO CHANCES TO SPELL
  77. 544 [153]"  A WORD CORRECTLY; THEN THAT WORD
  78. 548 PRINT"  WILL BE DISPLAYED.
  79. 552 [153]"  (null)LEASE RECORD ANY WORDS THAT YOU
  80. 556 PRINT"  FUMBLE.[145]"
  81. 560 GOSUB290
  82. 590 PRINT"AND AWAY WE GO..........":GOSUB300:GOSUB391
  83. 600 N=1
  84. 610 FORG=1TO20:FORI=1TO3:K=0:GOSUB400:N=N+1
  85. 620 READA$,B$,C$
  86. 630 PRINT"[159] [215]HICH OF THESE WORDS IS SPELLED         CORRECTLY?
  87. 640 [153]"SYS >>> "A$;B$
  88. 650 [153]"SYS ":[133]Z$
  89. 660 [139]Z$[178]C$[167][141]200:[137]690
  90. 670 [139]K[178]1[167][141]370:[153]"DEF (null)HE CORRECT SPELLING IS "C$"DEF."
  91. 675 [139]K[178]1[167] [141]290:W[178]W[170]1:[137]690
  92. 680 K[178]K[170]1:P[178]P[170]1:[141]210:[137]650
  93. 690 [130]G
  94. 699 :
  95. 700 [153]"LOAD  (null)PELLINGZZZZAPPER (null)-4    (null)LEN(null)(null)VALCLOSEPEEK(null)ATN(null)STR$  WAIT
  96. 705 L=P-W:C=20-P
  97. 710 PRINT"   [158] [195]ORRECT ON FIRST ATTEMPT....."C:GOSUB300:GOSUB391
  98. 715 PRINT"   [159] [195]ORRECT ON SECOND ATTEMPT...."L:GOSUB320:GOSUB391
  99. 720 PRINT"   [150] [194][204][207][207][208][197][210][211]....................."W:GOSUB370:GOSUB391:PRINT""
  100. 725 IF C=20THENPRINT"[145][145][158]                [197][216][195][197][204][204][197][206][212]!              [146]"
  101. 730 GOSUB290
  102. 750 PRINT"[147][158] [217]OU HAVE A CHOICE:
  103. 755 [153]" (null)RESS  (null) WAIT TO REPEAT (null)RACTICE (null)-4
  104. 760 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
  105. 765 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]765
  106. 770 [139] R$[178]"R"[167] [140]:[137]100
  107. 772 [139] R$[178]"(null)"[167] [140]:[137]100
  108. 775 [153]"LOADSYS (null)ETURNING TO THE DISK MENU.
  109. 780 LOAD"MENU",8
  110. 785 RUN
  111. 790 END
  112. 799 :
  113. 899 :
  114. 900 PRINT"[147]   [200]ERE ARE THE WORDS USED IN [211]PELL        [208]RACTICE 4
  115. 905 [153]"OPEN   CATEGORY         INDISPENSABLE
  116. 910 PRINT"   PERMIT           STRENGTH
  117. 915 [153]"   COMPARATIVE      INTERESTING
  118. 920 PRINT"   PERSEVERANCE     SUPERINTENDENT
  119. 925 [153]"   COMPETENT        LABORATORY
  120. 930 PRINT"   PRIMITIVE        SURPRISE
  121. 935 [153]"   DEFINITE         LENGTH
  122. 940 PRINT"   PRIVILEGE        USUALLY
  123. 945 [153]"   ENVIRONMENT      LIBRARY
  124. 950 PRINT"   RESTAURANT       [215]EDNESDAY
  125. 960 [141]290:[142]
  126. 999 :
  127. 1000 [131]"CATEGORY /"," CATAGORY","CATEGORY"
  128. 1010 [131]"INDISPENSABLE /"," INDESPENSIBLE","INDISPENSIBLE"
  129. 1020 [131]"PERMIT /"," PERMET","PERMIT"
  130. 1030 [131]"STRENTH /"," STRENGTH","STRENGTH"
  131. 1040 [131]"COMPARATIVE /"," COMPARETIVE","COMPARATIVE"
  132. 1050 [131]"INTIRESTING /"," INTERESTING","INTERESTING"
  133. 1060 [131]"PERSAVERANCE /"," PERSEVERANCE","PERSEVERANCE"
  134. 1070 [131]"SUPERENTENDENT /"," SUPERINTENDENT","SUPERINTENDENT"
  135. 1080 [131]"COMPETENT /"," COMPETANT","COMPETENT"
  136. 1090 [131]"LABORATORY /"," LABRATORY","LABORATORY"
  137. 1100 [131]"PRIMITIVE /"," PRIMATIVE","PRIMITIVE"
  138. 1110 [131]"SUPRISE /"," SURPRISE","SURPRISE"
  139. 1120 [131]"DEFINITE /"," DEFENITE","DEFINITE"
  140. 1130 [131]"LENTH /"," LENGTH","LENGTH"
  141. 1140 [131]"PRIVILEGE /"," PRIVALEGE","PRIVILEGE"
  142. 1150 [131]"USUALLY /"," USEULLY","USUALLY"
  143. 1160 [131]"ENVIRENMENT /"," ENVIRONMENT","ENVIRONMENT"
  144. 1170 [131]"LIBRARY /"," LIBERARY","LIBRARY"
  145. 1180 [131]"RESTRAUNT /"," RESTAURANT ","RESTAURANT"
  146. 1190 [131]"(null)EDNESDAY /"," (null)ENESDAYR","(null)EDNESDAY"
  147. 2000 [143] WHC 92:09:22
  148.